home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
misc
/
sci
/
dproc126.lha
/
demo
/
v100lin.tst
< prev
next >
Wrap
Text File
|
1993-02-26
|
2KB
|
125 lines
#dsize 40
#columns %f %f %f %f %f %f
#queue 1 nu snu ua sua amp samp
#math v:=1010/10.04
; nehmen 1% Fehler an
#math sv:=v*rt2/100
#build gt 'Verst"arkung: $%f4\\pm%f2$' v sv
#globtitle gt
#title nu "$\nu$"
#unit nu "Hz"
#title snu "$s_\nu$"
#unit snu "Hz"
#title ua "U$_A$"
#unit ua V
#title sua "$s_{U_A}$"
#unit sua V
#title amp "V'"
#rtitle amp "V'($\nu$)"
#gtitle amp "Messung"
#title samp "$s_{V'}$"
#func ua2amp f(u):=u/0.086
#func sua2samp g(amp,u,su):=amp*sqrt((su/u)^2+sqr(1/86))
#make amp ua2amp ua
#make samp sua2samp amp ua sua
! OK, Let's data
#using nu snu ua sua
#prec 0 2
#prec amp 3
#prec nu 5
108.3/0.05/8.2/0.2
208.85
309//8.1
408.2
507.31
605.82//8
704.02
802.07
899.8
998.12
2090.1//7.7
3091.6//7.2
4084.9//6.6
#mark gerade
5075//5.9
6060.3//5.4
7042/1/4.8
8023//4.3
9004//3.9
9985//3.6
13144//3/0.15
15885//2.5
19612//2
25851//1.5
31653//1.2
! go on -- regress
#applog "lintst.log"
#build control "Start bei %d" gerade
#logpost control
#logreg 3 nu amp 0 gerade
! compute vg
#math vg:=(v/rt2*10^DPB)^(1/DPA)
#math lvg:=vg*ln(vg)
#math svg:=sqrt(lvg*((DPSA/a)^2+(DPSB/b)^2)+(vg*sv/v)^2)
#build vgstr "Grenzfrequenz: %f4 +/- %f2" vg svg
#post vgstr
#math svgv:=vg*v*sqrt((svg/vg)^2+(sv/v)^2)
#build vconst "vg*V': %f4 +/- %f2" "vg*v" svgv
#post vconst
#logpost vconst
#logpost vgstr
#logpost gt
! tag it
#tagfile "valllin.tag" v100
#build results "%f/%f/%f/%f/%f/%f" v sv vg svg v*vg svgv
#tagpost results
#tagfile "reglin.tag" v100
#build regs "%f/%f/%f/%f" v sv DPA DPSA
#tagpost regs
! and genarate some output
#term gnuplot
#set logscale xy
#storeset yrange 10:100
#if eepic
#set output v100lin.eep
#endif
#ocol nu amp samp
#write "v100lin.dta" "v100lin.gnu"
#term latex
#set Corr
#set floathead
#set caption v100lin
#ocol nu snu ua sua amp samp
#write "v100lin.tab"
#post gt
! *** DONE ***
#flushset